#!usr/bin/perl -w

#定义了TextQuery类
package TextQuery;

require Exporter;
require Query;
@ISA = qw(Exporter Query);
@EXPORT = qw(Parse);
use strict;

sub new()
{
	my $super=shift;
	my $self=Query->new(@_);
	bless $self,$super;
	return $self;
}

sub Parse()
{
	my $this=shift;
	$this->SUPER::Parse(@_);
}

1;

